/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! REI05G05                                                !
+------------------+---------------------------------------------------------+
!Descricao         ! Gatilho para alimentar o custo unitario do produto      !
+------------------+---------------------------------------------------------+
!Autor             ! REIVAX - Danilo F. Ramos / Peterson                     !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 29/12/10                                                !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/


User Function REI05G05()

Local _nPosPro   	 := aScan(aHeader,{|x| AllTrim(x[2])=="C6_PRODUTO"})
Local _nPosLocal   	 := aScan(aHeader,{|x| AllTrim(x[2])=="C6_LOCAL"})
Local _nRet := 0
local _cLoc
_cLoc := iIf(aCols[N,_nPosLocal] <> NIL,aCols[N,_nPosLocal],Posicione("SB1", 1, xFilial("SB1")+aCols[N,_nPosPro],"B1_LOCPAD"))

_nRet := Posicione("SB2", 1, xFilial("SB2")+aCols[N,_nPosPro]+_cLoc,"B2_CM1")
                             	
Return _nRet